home *** CD-ROM | disk | FTP | other *** search
/ ftp.mayn.de / ftp.mayn.de-pub.zip / ftp.mayn.de-pub / apple / MacOS-7.0 / SSW_7.0-7of8.data / LaserWriter Font Utility / LaserWriter Font Utility.rsrc / STR#_16100.txt < prev    next >
Text File  |  1991-04-25  |  569b  |  36 lines
  1. %%[ Error: 
  2.  
  3. userdict /sysStartPatched false put 
  4.  
  5.  
  6. k { fn deletefile } if } str filenameforall 
  7.  
  8.  
  9. { pop pop /k true def } { pop } ifelse f closefile 
  10.  
  11.  
  12. f =string readline pop (%!PS-TrueTypeFont) anchorsearch 
  13.  
  14.  
  15. (fonts/*) { /fn exch def /k false def /f fn (r) file def 
  16.  
  17.  
  18. /str 100 string def 
  19.  
  20.  
  21. (usr/truetypeinstall) status {4pop (usr/truetypeinstall) deletefile} if 
  22.  
  23.  
  24. (Sys/OldStart) status {4pop (Sys/OldStart) (Sys/Start) renamefile} if 
  25.  
  26.  
  27. (Sys/Start) status {4pop (Sys/Start) deletefile} if 
  28.  
  29.  
  30. /4pop { pop pop pop pop } bind def 
  31.  
  32.  
  33. serverdict begin 0 exitserver 
  34.  
  35.  
  36.